home *** CD-ROM | disk | FTP | other *** search
/ Catch Me If You Can Press Kit / Catch Me if You Can Press Kit.iso / mac / Catch Me If You Can.dxr / scripts_43_large checkbox script.ls < prev    next >
Encoding:
Text File  |  2002-11-21  |  402 b   |  19 lines
  1. property spriteNum, mySprite
  2. global photoDL, currPhoto
  3.  
  4. on beginSprite me
  5.   mySprite = sprite(spriteNum)
  6. end
  7.  
  8. on mouseUp me
  9.   myName = mySprite.member.name
  10.   myMemberNum = mySprite.member.number
  11.   if myName contains "0" then
  12.     mySprite.member = member(myMemberNum + 1)
  13.     append(photoDL, currPhoto)
  14.   else
  15.     mySprite.member = member(myMemberNum - 1)
  16.     deleteOne(photoDL, currPhoto)
  17.   end if
  18. end
  19.